home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / Ap-Az / AstroStack1.1.cpt / AstroStack 1.1 / card_6129.txt < prev    next >
Encoding:
Text File  |  1988-04-24  |  6.4 KB  |  331 lines
  1. -- card: 6129 from stack: in.1
  2. -- bmap block id: 2127
  3. -- flags: 0000
  4. -- background id: 2632
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide card field ID 13
  9.   show card button ID 17
  10.   hide card button ID 16
  11.   hide card field id 20
  12. end openCard
  13.  
  14.  
  15. -- part 1 (button)
  16. -- low flags: 00
  17. -- high flags: A003
  18. -- rect: left=211 top=308 right=330 bottom=311
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: Continue
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   global midA,midB,AscendA,AscendB,AscendC
  30.   if card field Id 7 is not in card field id 13
  31.   then
  32.   beep
  33.   answer "Please check the spelling of the Mid-Heaven"
  34.   exit mouseUp
  35. end if
  36. if card field id 7 is not in card field id 20
  37. then
  38. beep
  39. answer "Please delete ‚Äú¬∂‚Äù at the end of Mid-Heaven"
  40. exit mouseUp
  41. end if
  42. if card field id 9 is not in card field id 13
  43. then
  44. beep
  45. answer "Please check the spelling of the Ascendant"
  46. exit mouseUp
  47. end if
  48. if card field id 9 is not in card field id 20
  49. then
  50. beep
  51. answer "Please delete ‚Äú¬∂‚Äù at the end of Mid-Heaven"
  52. exit mouseUp
  53. end if
  54.  
  55. put card field ID 7 into MidA
  56. put card field ID 8 into MidB
  57. put card field Id 9 into AscendA
  58. put card field id 10 into AscendB
  59. put card field id 11 into AscendC
  60. go to card id 7360
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part 2 (field)
  66. -- low flags: 01
  67. -- high flags: 0000
  68. -- rect: left=294 top=99 right=118 bottom=317
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 1
  72. -- font id: 0
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: 
  77.  
  78.  
  79. -- part 3 (field)
  80. -- low flags: 01
  81. -- high flags: 0000
  82. -- rect: left=325 top=99 right=118 bottom=349
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 1
  86. -- font id: 0
  87. -- text size: 12
  88. -- style flags: 0
  89. -- line height: 16
  90. -- part name: 
  91.  
  92.  
  93. -- part 4 (field)
  94. -- low flags: 01
  95. -- high flags: 0000
  96. -- rect: left=360 top=99 right=118 bottom=384
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: 
  105.  
  106.  
  107. -- part 5 (field)
  108. -- low flags: 01
  109. -- high flags: 0000
  110. -- rect: left=339 top=125 right=144 bottom=363
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: 
  119.  
  120.  
  121. -- part 6 (field)
  122. -- low flags: 01
  123. -- high flags: 0000
  124. -- rect: left=369 top=125 right=144 bottom=393
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: 
  133.  
  134.  
  135. -- part 7 (field)
  136. -- low flags: 00
  137. -- high flags: 0002
  138. -- rect: left=28 top=186 right=203 bottom=199
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 0
  142. -- font id: 3
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: 
  147. ----- HyperTalk script -----
  148. on returnKeyup
  149.   beep
  150.   answer "Please delete paragraph return"
  151. end returnKeyup
  152.  
  153.  
  154.  
  155. -- part 8 (field)
  156. -- low flags: 00
  157. -- high flags: 0002
  158. -- rect: left=203 top=186 right=203 bottom=228
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 0
  162. -- font id: 3
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: 
  167.  
  168.  
  169. -- part 9 (field)
  170. -- low flags: 00
  171. -- high flags: 0002
  172. -- rect: left=28 top=250 right=267 bottom=199
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 0
  176. -- font id: 3
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: 
  181.  
  182.  
  183. -- part 10 (field)
  184. -- low flags: 00
  185. -- high flags: 0002
  186. -- rect: left=210 top=250 right=267 bottom=235
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 0 / 0
  189. -- text alignment: 0
  190. -- font id: 3
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: 
  195.  
  196.  
  197. -- part 11 (field)
  198. -- low flags: 00
  199. -- high flags: 0002
  200. -- rect: left=241 top=250 right=267 bottom=266
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 0 / 0
  203. -- text alignment: 0
  204. -- font id: 3
  205. -- text size: 12
  206. -- style flags: 0
  207. -- line height: 16
  208. -- part name: 
  209.  
  210.  
  211. -- part 12 (button)
  212. -- low flags: 80
  213. -- high flags: A003
  214. -- rect: left=248 top=275 right=297 bottom=348
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 1
  218. -- font id: 0
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: Open Speller
  223. ----- HyperTalk script -----
  224. on mouseUp
  225.   show card field ID 13
  226.   show card button ID 14
  227.   hide card button ID 12
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part 13 (field)
  233. -- low flags: 80
  234. -- high flags: 2007
  235. -- rect: left=373 top=261 right=330 bottom=478
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 0
  239. -- font id: 0
  240. -- text size: 12
  241. -- style flags: 0
  242. -- line height: 16
  243. -- part name: 
  244.  
  245.  
  246. -- part 16 (button)
  247. -- low flags: 80
  248. -- high flags: A003
  249. -- rect: left=256 top=275 right=297 bottom=356
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 1
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: Close Speller
  258. ----- HyperTalk script -----
  259. on mouseUp
  260.   hide card field ID 13
  261.   show card button ID 17
  262.   hide card button ID 16
  263. end mouseUp
  264.  
  265.  
  266.  
  267. -- part 17 (button)
  268. -- low flags: 00
  269. -- high flags: A003
  270. -- rect: left=256 top=275 right=297 bottom=356
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 0 / 0
  273. -- text alignment: 1
  274. -- font id: 0
  275. -- text size: 12
  276. -- style flags: 0
  277. -- line height: 16
  278. -- part name: Open Speller
  279. ----- HyperTalk script -----
  280. on mouseUp
  281.   show card field ID 13
  282.   show card button ID 16
  283.   hide card button ID 17
  284. end mouseUp
  285.  
  286.  
  287.  
  288. -- part 20 (field)
  289. -- low flags: 80
  290. -- high flags: 0007
  291. -- rect: left=394 top=83 right=128 bottom=491
  292. -- title width / last selected line: 0
  293. -- icon id / first selected line: 0 / 0
  294. -- text alignment: 0
  295. -- font id: 3
  296. -- text size: 9
  297. -- style flags: 0
  298. -- line height: 12
  299. -- part name: 
  300.  
  301.  
  302. -- part contents for card part 13
  303. ----- text -----
  304. Aries
  305. Taurus
  306. Gemini
  307. Cancer
  308. Leo
  309. Virgo
  310. Libra
  311. Scorpio
  312. Sagittarius
  313. Capricorn
  314. Aquarius
  315. Pisces
  316.  
  317. -- part contents for card part 20
  318. ----- text -----
  319. Aries, X
  320. Taurus, X
  321. Gemini, X
  322. Cancer, X
  323. Leo, X
  324. Virgo, X
  325. Libra, X
  326. Scorpio, X
  327. Sagittarius, X
  328. Capricorn, X
  329. Aquarius, X
  330. Pisces, X
  331.